﻿Imports Microsoft.DirectX.Direct3D
Imports Microsoft.DirectX

Public Class Sphere : Inherits Shape

    Dim Radius As Single

    Sub New(ByVal r As Single)
        Radius = r
    End Sub

    Public Overrides Sub Create()
        M = Mesh.Sphere(Device, Radius, 10, 10)
    End Sub

End Class
